(run_hook_with_args): Move the GCPRO2; add UNGCPRO.

diff --git a/src/eval.c b/src/eval.c
index 07fbf871b68a6044e9d958542846341b437ef2bd..938b20cd82439f121534daadc8ae388bf5a2c655 100644 (file)
--- a/src/eval.c
+++ b/src/eval.c
@@ -1927,8 +1927,6 @@ run_hook_with_args (nargs, args, cond)
   val = find_symbol_value (sym);
   ret = (cond == until_failure ? Qt : Qnil);
 
-  GCPRO2 (sym, val);
-
   if (EQ (val, Qunbound) || NILP (val))
     return ret;
   else if (!CONSP (val) || EQ (XCONS (val)->car, Qlambda))
@@ -1938,6 +1936,8 @@ run_hook_with_args (nargs, args, cond)
     }
   else
     {
+      GCPRO2 (sym, val);
+
       for (;
           CONSP (val) && ((cond == to_completion)
                           || (cond == until_success ? NILP (ret)
@@ -1966,6 +1966,8 @@ run_hook_with_args (nargs, args, cond)
              ret = Ffuncall (nargs, args);
            }
        }
+
+      UNGCPRO;
       return ret;
     }
 }